home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / SoundAndMusic / cmix / lib / hpluck.c < prev    next >
Encoding:
Text File  |  1989-02-25  |  319 b   |  17 lines
  1. float hpluck(xin,q)
  2. float xin,*q; 
  3. {
  4.     float temp;
  5.     int ip;
  6.     q[0]++;
  7.     if(*q <= q[1]) ip = *q;
  8.     else *q = ip = 20;
  9.     q[7] = (1.-q[8]) * q[ip] + q[8] * q[7];
  10.     temp = q[9] * (q[2] * q[ip] + q[3] * q[6]);
  11.     q[6] = q[ip];
  12.     q[ip] = q[10] * temp + q[4] - q[10] * q[5];
  13.     q[5] = q[ip] = xin + q[ip];
  14.     q[4] = temp;
  15.     return(q[7]);
  16. }
  17.